﻿Public Class Connect

    Sub Connect()

        Dim objms As MAPSRVLib.GWMMapServerHelper

        ' Definir ficheiro de coordenadas.
        objms.SetCoordinateSystem("C:\Warehouses\USA.csf")

        ' Conectar a base de dados
        objms.Connect("Access.GDatabase", "C:\Warehouses\USSampleData.mdb", "", "USA")


    End Sub
End Class
